home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bblog.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-03-12  |  1.9 KB  |  73 lines
  1. (*===========================================================================*)
  2. (* Log file                                                                  *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1990, 1992  by H. Roy Engehausen.  All rights     *)
  5. (*   reserved.                                                               *)
  6. (*                                                                           *)
  7. (*===========================================================================*)
  8.  
  9. UNIT BBLOG;
  10.  
  11. INTERFACE
  12.  
  13.   USES
  14.     DOS,
  15.     bbdummy,
  16.     bbtime;
  17.  
  18.   PROCEDURE log_data_s(event : STRING);
  19.   PROCEDURE log_data_is(number : LONGINT; event : STRING);
  20.  
  21.   VAR
  22.  
  23.     log_dow  : BYTE;
  24.     log_file : TEXT;
  25.     log_time : LONGINT;
  26.     log_type : CHAR;
  27.  
  28.   CONST
  29.     log_update = 11 * ticks_per_min;
  30.  
  31. IMPLEMENTATION
  32.  
  33. (*===========================================================================*)
  34. (* Log a data string                                                         *)
  35. (*===========================================================================*)
  36.  
  37. PROCEDURE log_data_s(event : STRING);
  38.   VAR
  39.     c : CHAR;
  40.  
  41.   BEGIN;
  42.  
  43.     IF log_type = 'N' THEN EXIT;
  44.  
  45.     c := byte_to_char[active_tcb^.tcb_number];
  46.  
  47.     WRITELN(log_file, todays_date_time, c, event);
  48.  
  49.   END;
  50.  
  51. (*===========================================================================*)
  52. (* Log a data string with number                                             *)
  53. (*===========================================================================*)
  54.  
  55. PROCEDURE log_data_is(number : LONGINT; event : STRING);
  56.   VAR
  57.     c : CHAR;
  58.     s : STRING[10];
  59.  
  60.   BEGIN;
  61.  
  62.     IF log_type = 'N' THEN EXIT;
  63.  
  64.     c := byte_to_char[active_tcb^.tcb_number];
  65.  
  66.     STR(number, s);
  67.  
  68.     WRITELN(log_file, todays_date_time, c, s, ':', event);
  69.  
  70.   END;
  71.  
  72. END.
  73.